home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ums / IntuiNews1_4a.lha / UMS / Rexx / UUDecode.intui < prev   
Text File  |  1995-08-27  |  2KB  |  80 lines
  1. /*
  2.  
  3.    $VER: UUDecode.intui 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.owl.de)
  7.  
  8.    Function:
  9.     uudecodes a file, even if it is distributed in several messages
  10.  
  11.    History:
  12.     0.1   internal version
  13.     0.2   internal version
  14.     0.3   internal version
  15.     0.4   first public release of IntuiNews 1.3 Beta 3
  16.     0.5   adapted to IntuiNews 1.3 Beta 5
  17.     0.6   cosmetic changes
  18.     0.7   removed SAY calls
  19.     0.8   decided to get rid of this strange AMOK style header and
  20.           went back to my good old standard
  21.     0.9   fixed version string
  22.     0.10  fixed header
  23.     1.0   released with IntuiNews 1.3
  24.  
  25.    Requires:
  26.     "uudecode" in command path of ARexx
  27.  
  28.    Example for "ums.config":
  29.     ( IntuiNews.Rexx
  30.     ...
  31.         "(Article|Message)Window F2 UUDecode.intui T:\n"
  32.     ...
  33.     )
  34.  
  35. */
  36.  
  37. PARSE ARG Directory
  38.  
  39. /* get IntuiNews's message number */
  40.  
  41. OPTIONS RESULTS
  42.  
  43. /* If Message Window is active ... */
  44.  
  45. STATUS
  46. IF RESULT="MESSAGE" THEN
  47.  DO
  48.  
  49. /* ... save current message. */
  50.  
  51.   GETMSGNUM
  52.   MsgList=RESULT
  53.  END
  54. ELSE
  55.  
  56. /* If Article Window is active ... */
  57.  
  58.  IF RESULT="ARTICLE" THEN
  59.   DO
  60.  
  61. /* ... save all selected messages, useful for splitted messages. */
  62.  
  63.    GETSELMSGNUMS
  64.    IF RESULT="RESULT" THEN EXIT 5
  65.    MsgList=RESULT
  66.   END
  67.  
  68. /* Exit otherwise. */
  69.  
  70.  ELSE EXIT 5
  71.  
  72. /* start uudecode reading from a pipe ... */
  73.  
  74. CALL PRAGMA('Directory',Directory)
  75. SHELL COMMAND 'Run >NIL: uudecode PIPE:UUDecode'
  76.  
  77. /* ... and save message bodies to this pipe. */
  78.  
  79. 'SAVEMSGBODY' MsgList 'TO PIPE:UUDecode'
  80.